home *** CD-ROM | disk | FTP | other *** search
/ Macromedia Multimedia Showcase 6.0 / Macromedia Multimedia Showcase v6.0 WIN-MAC (XMSH60CD)(Macromedia, Inc.)(1996).iso / pc / demosoft / freehand / data.5 / App / Usenglsh / lang8.dll / POST / 1086 < prev    next >
Text File  |  1996-10-03  |  4KB  |  173 lines
  1. %. Error handling code - don't do this if printing to hi res imagesetter
  2. printerRes 1000 lt
  3. {
  4. userdict /agd_noerryet true put
  5. errordict
  6. /handleerror
  7. {
  8. $error begin
  9. /prt{dup type /stringtype ne{=string cvs}if show}def
  10. newerror
  11. {
  12. /newerror false store
  13. systemdict begin
  14. grestoreall initgraphics
  15. end
  16. userdict /agd_noerryet get
  17. {
  18. { 
  19. userdict /agd_noerryet false put
  20. 30 90 moveto
  21. 30 122 lineto
  22. 570 122 lineto
  23. 570 90 lineto
  24. closepath
  25. 1 setgray fill
  26. 0 setgray
  27. 30 110 moveto
  28. /Helvetica findfont 14 scalefont setfont
  29. (POSTSCRIPT ERROR: ) prt errorname prt (    ) prt
  30. (OFFENDING COMMAND: ) prt /command load prt
  31. 30 95 moveto
  32. (VMSTATUS max: ) prt vmstatus dup prt
  33. ( avail: ) prt exch sub prt
  34. ( level: ) prt prt
  35. } stopped
  36. pop  
  37. /md where {    
  38. pop
  39. md type /dicttype eq {        
  40. (ioerror) errorname ne{systemdict /showpage get exec}if
  41. } if
  42. }
  43. {    
  44. (ioerror) errorname ne
  45. (interrupt) errorname ne and {systemdict /showpage get exec}if
  46. }
  47. ifelse
  48. } if     
  49. }if
  50. end
  51. }
  52. put
  53. }if
  54. %.
  55. /overlapmark{
  56. -4 xs div 0 rlineto
  57. 4 xs div 2 div -7 ys div 2 div rmoveto
  58. 0 7 ys div rlineto
  59. 4 xs div 0 rlineto
  60. 0 -7 ys div rlineto
  61. -4 xs div 0 rlineto
  62. .2 xs div setlinewidth
  63. 0 setseparationgray stroke
  64. }bdf
  65. /amsub{gsave setlinewidth 4 2 roll rmoveto rlineto stroke grestore}bdf
  66. /am{
  67. newpath
  68. moveto                    
  69. 0 setseparationgray
  70. gsave
  71. currentpoint 5 xs div 0 360 arc         
  72. .3 xs div setlinewidth
  73. stroke
  74. grestore
  75. gsave
  76. currentpoint 3 xs div 0 360 arc         
  77. fill
  78. grestore
  79. 3 xs div 0 5 xs div 0 .3 ys div amsub    
  80. -3 xs div 0 -5 xs div 0 .3 ys div amsub    
  81. 0 3 ys div 0 5 ys div .3 xs div amsub    
  82. 0 -3 ys div 0 -5 ys div .3 xs div amsub    
  83. 1 setseparationgray
  84. -3 xs div 0 6 xs div 0 .3 ys div amsub    
  85. 0 -3 ys div 0 6 ys div .3 xs div amsub    
  86. }bdf
  87. /fhcbox {
  88. xt yt moveto
  89. 13.5 xs div 0 rlineto
  90. 0 13.5 ys div rlineto
  91. -13.5 xs div 0 rlineto
  92. 0 -13.5 ys div rlineto
  93. gsave fill grestore
  94. 0 setseparationgray stroke    
  95. dup length 0 ne {
  96. 0 setseparationgray
  97. dup stringwidth pop neg 13.5 xs div add 2 div xt add yt 5 ys div add moveto show
  98. }
  99. {pop} ifelse
  100. xs div xt add /xt xdf
  101. }bdf
  102. /fhcb {
  103. 0.25 xs div 0.25 ys div add 2 div setlinewidth
  104. 2 copy        
  105. 6.75 ys div sub /yt xdf
  106. 25.5 xs div sub /xt xdf
  107. 0 1 10 { 
  108. 10 div setseparationgray
  109. -13.5 () fhcbox
  110. }for
  111. 6.75 ys div sub /yt xdf
  112. 12 xs div add /xt xdf
  113. /Helvetica findfont 5 ys div scalefont setfont
  114. 1 0 0 0 setcmykcolor 13.5 (C) fhcbox
  115. 0 1 0 0 setcmykcolor 13.5 (M) fhcbox
  116. 0 0 1 0 setcmykcolor 13.5 (Y) fhcbox
  117. 1 1 0 0 setcmykcolor 13.5 (CM) fhcbox
  118. 0 1 1 0 setcmykcolor 13.5 (MY) fhcbox
  119. 1 0 1 0 setcmykcolor 13.5 (CY) fhcbox
  120. 1 1 1 0 setcmykcolor 13.5 (CMY) fhcbox
  121. 0 0 0 1 setcmykcolor 13.5 (K) fhcbox
  122. }def    
  123. /mybleed{bleed 0 eq{wdist 10 sub xs div}{bleed}ifelse}bdf
  124. /cm{mybleed neg 0 rmoveto -9 xs div 0 rlineto
  125. 9 xs div mybleed add mybleed neg rmoveto 0 -9 ys div rlineto
  126. .3 xs div setlinewidth 0 setseparationgray stroke}bdf
  127. /np {720 254 div}bdf
  128. /jpbleed{bleed 0 eq{np 3 mul}{bleed}ifelse}bdf
  129. /cmj{jpbleed neg 0 rmoveto -10 np mul 0 rlineto
  130. 10 np mul 0 rmoveto 0 10 np mul jpbleed add neg rlineto
  131. jpbleed 0 rmoveto 0 10 np mul rlineto
  132. 10 np mul jpbleed add neg 0 rlineto
  133. np 10 div setlinewidth 0 setseparationgray stroke}bdf
  134. /amsubj{gsave setlinewidth 4 2 roll moveto lineto stroke grestore}bdf
  135. /amj{
  136. newpath
  137. gsave
  138. translate
  139. rotate
  140. 0 setseparationgray
  141. gsave
  142. 0 0 5 2 div np mul 0 360 arc         
  143. np 10 div setlinewidth
  144. stroke
  145. grestore
  146. 0 0 10 np mul 0 np 10 div amsubj    
  147. 0 0 -10 np mul 0 np 10 div amsubj    
  148. 0 0 0 6 np mul np 10 div amsubj        
  149. 0 0 0 -4 np mul np 10 div amsubj    
  150. grestore
  151. }bdf
  152. /fhcbj {
  153. 0.25 xs div 0.25 ys div add 2 div setlinewidth
  154. 2 copy        
  155. 6.75 ys div sub /yt xdf
  156. 50.5 xs div sub /xt xdf
  157. 0 1 10 { 
  158. 10 div setseparationgray
  159. -13.5 () fhcbox
  160. }for
  161. 6.75 ys div sub /yt xdf
  162. 37 xs div add /xt xdf
  163. /Helvetica findfont 5 ys div scalefont setfont
  164. 1 0 0 0 setcmykcolor 13.5 (C) fhcbox
  165. 0 1 0 0 setcmykcolor 13.5 (M) fhcbox
  166. 0 0 1 0 setcmykcolor 13.5 (Y) fhcbox
  167. 1 1 0 0 setcmykcolor 13.5 (CM) fhcbox
  168. 0 1 1 0 setcmykcolor 13.5 (MY) fhcbox
  169. 1 0 1 0 setcmykcolor 13.5 (CY) fhcbox
  170. 1 1 1 0 setcmykcolor 13.5 (CMY) fhcbox
  171. 0 0 0 1 setcmykcolor 13.5 (K) fhcbox
  172. }def